PASCAL COMPILATION LIST PRODUCED BY PASCAL VERSION FROM 30-DEC-76 ON 18-APR-79  AT 11:40:58  

   10   COMMENT    VALID 00003 PAGES
   20   C REC  PAGE   DESCRIPTION
   30   C00001 00001
   40   C00002 00002    (*PROGRAM HEADER PAGE*)
   50   C00005 00003    PROGRAM DUP(INPUT,OUTPUT)
   60   C00006 ENDMK
   70   C;
   80   (*PROGRAM HEADER PAGE*)
   90   
  100   (*PAS10 OPTIONS*) (*$D+,R32,S1300*)                     (*X10S1*)
  110   
  120   (*                                                           DEFAULT
  130   
  140   D+      DEBUG AND POSTMORTEM DUMP                               -
  150   E+      EXTERNAL CALLS TO LEVEL 1 PROCEDURES ALLOWED            -
  160   FN      FILE OPTION                                             1
  170   I+      FORTRAN I/O IN EXTERNAL FORTRAN SUBROUTINES             -
  180   L+      OBJECT LISTING                                          -
  190   RN      SIZE OF LOW-SEGMENT                             (SEE PAS10 MANUAL)
  200   SN      MAX INSTRUCTIONS PER STATEMENT                         1000
  210   T+      RUNTIME CHECK                                           +
  220   U+      72 COLUMN FORMAT                                        -
  230   XN      HIGHEST REGISTER FOR PARAMETERS                         6
  240   *)
  250   
  260   (*SLAC PCPASC OPTIONS*) (* B+,D+,M-*)
  270   
  280   (*                                                           DEFAULT
  290   
  300   A+      GENERATE 370 OBJECT MODULE                              -
  310   A-      GENERATE 370 ASSEMBLY MODULE
  320   B+      BOUNDS CHECKING, BUT ALLOW 'BIG' CHARACTERS             -
  330   C+      EMIT PCODE                                              +
  340   D+      RUNTIME CHECKING OF POINTER, INDEX, SUBRANGE VALUES     -
  350   E+      FILE IS IN EBCDIC CHARACTER SET                         -
  360   F+      SAVE FPR'S ON PROCEDURE/FUNCTION ENTRY                  +
  370   K+      ENABLE STATEMENT EXECUTION COUNTING                     -
  380   L+      LIST SOURCE PROGRAM                                     +
  390   M+      72 COLUMN FORMAT                                        +
  400   P+      DOUBLE-WORD BOUNDARY ALIGNMENT                          -
  410   S+      SAVE GPR'S ON PROCEDURE/FUNCTION ENTRY                  +
  420   T+      PRINT SYMBOL TABLES (FOR POST-PROCESSOR)                -
  430   U+      GET STATISTICS?? 2ND PARAMETER TO PCODE BGN INSTR.      -
  440   V+      ?? 3RD PCODE BGN INSTRUCTION PARAMETER                  -
  450   X+      USE ACTUAL PROCEDURE NAMES FOR EXTERNAL REFERENCES      -
  460   X-      GENERATE UNIQUE 8-CHAR NAMES FOR EXTERNAL REFERENCES
  470   *)
  480   
  490   (*S1 PCPASC OPTION DIFFERENCES*) (* A+,B+,D+,L-,M120*)  (*X10S1*)
  500   
  510   
  520   
  530   (*                                                           DEFAULT
  540   
  550   A+      GENERATE S1 ASSEMBLY MODULE                             -
  560   A-      GENERATE S1 OBJECT MODULE
  570   *)
  580   
  590   (* SLAC/PDP-10 TRANSPORT DEPENDENCIES FLAGGED WITH "XSL10" *)
  600   (* PDP-10/S-1 TRANSPORT DEPENDENCIES FLAGGED WITH "X10S1" *)
  610   PROGRAM DUP(INPUT,OUTPUT);
  620   
  630   TYPE
  640   BIT = 0..1;
  650   R1 =
  660    RECORD
  670   A1 : INTEGER;
  680   A2 : INTEGER;
  690   CASE BIT OF
  700           0 :  (INT :  INTEGER);
  710           1 :  (REA :  REAL)
  720   END;
  730   
  740   VAR X,Y :R1;
  750   
  760   BEGIN
  770   X.A1 := 3;
  780   X.A2 := 4;
  790   X.REA := 6.2;
  800   Y := X;
  810   WRITELN (OUTPUT,Y.A1,Y.A2,Y.REA);
  820   END.

   0 ERROR(S) DETECTED

HIGHSEG:   0K +  856 WORD(S)
LOWSEG :   0K +  102 WORD(S)

RUNTIME:   0: 0.258